home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / joke / sikimou / sikimou.bas next >
BASIC Source File  |  1994-11-16  |  2KB  |  86 lines
  1. 10 '◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
  2. 20 '◆              色盲色弱検査プログラム  v1.00         by Lapis    ◇
  3. 30 '◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆◇◆
  4. 40 '
  5. 50 '｢表示｣で｢12 dot font｣にして､お使いください｡作者はいつも､そうしてます｡(^^;)
  6. 60 '
  7. 70 '初期設定
  8. 80 '
  9. 90 CLS
  10. 100 SCREEN@ 1
  11. 110 SCREEN 0
  12. 120 SCREEN@ 0
  13. 130 SCREEN@ 2
  14. 140 PALETTE
  15. 150 DEFINT A-Z
  16. 160 LINE (0,0)-(640,480),PSET,%0,BF
  17. 170 '
  18. 180 RANDOMIZE TIME
  19. 190 '
  20. 200 'ＭＡＩＮ
  21. 210 '
  22. 220 LOCATE 0,0
  23. 230 PRINT "画面の中央に他の色とは全く違った色で､数字が"
  24. 240 PRINT "描かれています｡その数字(一桁)をテンキ－"
  25. 250 PRINT "で打ってください｡"
  26. 260 PRINT "リタ－ンキ－を押すと始まります"
  27. 270 '
  28. 280 '
  29. 290 OH$=INPUT$(1)
  30. 300 CLS
  31. 310 '
  32. 320 DEF PEN 0,4
  33. 330 FOR SY=0 TO 15
  34. 340 FOR SX=0 TO 15
  35. 350 PALETTE SY*SX+1,[120+RND*40,100+RND*40,120+RND*40]
  36. 360 PSET (2+SX*5,2+SY*5),%SY*SX+1
  37. 370 NEXT SX
  38. 380 NEXT SY
  39. 390 '
  40. 400 DIM SIKI%(4000)
  41. 410 '
  42. 420 GET@A (0,0)-(79,79),SIKI%
  43. 430 '
  44. 440 FOR EX=0 TO 7
  45. 450 FOR EY=0 TO 5
  46. 460 PUT@A (EX*80,EY*80)-((EX+1)*80-1,(EY+1)*80-1),SIKI%
  47. 470 NEXT EY
  48. 480 NEXT EX
  49. 490 '
  50. 500 ERASE SIKI%
  51. 510 PALETTE 244,[130,170,140]
  52. 520 '
  53. 530 RESTORE 840
  54. 540 FOR C=1 TO 12
  55. 550 READ CX,CY
  56. 560 PSET (36*5+2+CX*5,20*5+2+CY*5),%244
  57. 570 NEXT
  58. 580 '
  59. 590 SIK$=""
  60. 600 WHILE SIK$=""
  61. 610 '
  62. 620 SIK$=INKEY$
  63. 630 '
  64. 640 PALETTE 1+FIX(RND*225),[120+RND*40,100+RND*RND*40,120+RND*20]
  65. 650 WAIT 1
  66. 660 '
  67. 670 WEND
  68. 680 '
  69. 690 SCREEN@ 1
  70. 700 SCREEN@ 2
  71. 710 '
  72. 720 IF SIK$="2" THEN SYMBOL (200,200),"色盲･色弱の疑いは有りません",1,1,7,,,1 ELSE SYMBOL (168,200),"色盲･色弱の可能性が有ります",1,1,7,,,1
  73. 730 '
  74. 740 SYMBOL (200,300),"またやる場合は､｢1｣を",1,1,7,,,1
  75. 750 SYMBOL (200,340),"OS に戻りたい場合は､｢2｣をテンキ－で押してください",1,1,7,,,1
  76. 760 '
  77. 770 GRABIA$=INPUT$(1)
  78. 780 '
  79. 790 IF GRABIA$="1" THEN 90
  80. 800 IF GRABIA$="2" THEN SYSTEM
  81. 810 '
  82. 820 GOTO 770
  83. 830 '
  84. 840 '数字のデ－タ
  85. 850 DATA 20,20,21,19,22,19,23,20,23,21,22,22,21,23,20,24,20,25,21,25,22,25,23,25
  86.